home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 2
/
United Public Domain Gold 2.iso
/
music_utilities
/
pt141.dms
/
pt141.adf
/
ArexxExamples.lha
/
EP_Volume.dopus
< prev
next >
Wrap
Text File
|
1993-10-05
|
407b
|
27 lines
/* Eagleplayeransteuerung über Diropus
(c) 1993 DEFECT
fragt über Requester Lautstärke ab
*/
options results
if (pos('rexx_EP',SHOW('Ports')) = 0) then
do
address 'DOPUS.1'
toptext 'No Eagleplayer found !'
exit
end
address 'DOPUS.1'
getstring 'Enter_Volume_for_Eagleplayer_(0..64)'
aha=result
address 'rexx_EP'
volume aha
aha=result
address 'DOPUS.1'
toptext 'Eagleplayer: '||aha
exit